home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cafead1a / timed.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-06  |  3.3 KB  |  102 lines
  1. VERSION 4.00
  2. Begin VB.Form Timed 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   " "
  6.    ClientHeight    =   6945
  7.    ClientLeft      =   -45
  8.    ClientTop       =   285
  9.    ClientWidth     =   9660
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   7380
  13.    Icon            =   "Timed.frx":0000
  14.    Left            =   -105
  15.    LinkTopic       =   "Timed"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   6945
  19.    ScaleWidth      =   9660
  20.    ShowInTaskbar   =   0   'False
  21.    Top             =   -90
  22.    Width           =   9780
  23.    WindowState     =   2  'Maximized
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "OK"
  26.       Height          =   555
  27.       Left            =   4140
  28.       TabIndex        =   1
  29.       Top             =   4260
  30.       Width           =   1500
  31.    End
  32.    Begin VB.Label Label3 
  33.       BackStyle       =   0  'Transparent
  34.       Caption         =   "Please close any open windows."
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "MS Sans Serif"
  37.          Size            =   24
  38.          Charset         =   0
  39.          Weight          =   700
  40.          Underline       =   0   'False
  41.          Italic          =   -1  'True
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       ForeColor       =   &H00C0FFFF&
  45.       Height          =   795
  46.       Left            =   930
  47.       TabIndex        =   3
  48.       Top             =   3120
  49.       Width           =   8175
  50.    End
  51.    Begin VB.Label Label2 
  52.       Alignment       =   2  'Center
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "Thank You For Visiting Internet Cafe"
  55.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   24
  58.          Charset         =   0
  59.          Weight          =   700
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       ForeColor       =   &H00FF80FF&
  65.       Height          =   720
  66.       Left            =   150
  67.       TabIndex        =   2
  68.       Top             =   5445
  69.       Width           =   9600
  70.    End
  71.    Begin VB.Label Label1 
  72.       Alignment       =   2  'Center
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "The time on this password has expired.  "
  75.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  76.          Name            =   "Nuptial BT"
  77.          Size            =   72
  78.          Charset         =   0
  79.          Weight          =   400
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H000000FF&
  85.       Height          =   3270
  86.       Left            =   90
  87.       TabIndex        =   0
  88.       Top             =   -225
  89.       Width           =   9900
  90.    End
  91. Attribute VB_Name = "Timed"
  92. Attribute VB_Creatable = False
  93. Attribute VB_Exposed = False
  94. Option Explicit
  95. Private Sub Command1_Click() 'Ok button
  96. Me.Hide
  97. Cafe.txtPass.SetFocus
  98. End Sub
  99. Private Sub Form_Load()
  100. TopZ Me 'make this form on top
  101. End Sub
  102.